home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / boxer / boxer.lha / lmi-patch.lisp < prev    next >
Text File  |  1993-07-17  |  10KB  |  264 lines
  1. ;;;-*- Mode:LISP; Package:SI; Base:8; Readtable:ZL; -*-
  2.  
  3. ;;; (C) Copyright 1985 Massachusetts Institute of Technology
  4. ;;;
  5. ;;; Permission to use, copy, modify, distribute, and sell this software
  6. ;;; and its documentation for any purpose is hereby granted without fee,
  7. ;;; provided that the above copyright notice appear in all copies and that
  8. ;;; both that copyright notice and this permission notice appear in
  9. ;;; supporting documentation, and that the name of M.I.T. not be used in
  10. ;;; advertising or publicity pertaining to distribution of the software
  11. ;;; without specific, written prior permission.  M.I.T. makes no
  12. ;;; representations about the suitability of this software for any
  13. ;;; purpose.  It is provided "as is" without express or implied warranty.
  14. ;;;
  15.  
  16. #+LMI
  17. (EVAL-WHEN (LOAD COMPILE)
  18. (SETQ XR-SPECIAL-CHARACTER-NAMES
  19.       (APPEND '((:NULL . #o200) (:NULL-CHARACTER . #o200)
  20.         (:BREAK . #o201) (:SUSPEND . #o201)
  21.         (:CLEAR-INPUT . #o202) (:CLEAR . #o202) (:CLR . #o202)
  22.         (:CALL . #o203)
  23.         (:TERMINAL . #o204) (:ESC . #o204) (:ESCAPE . #o204) (:TERMINAL-ESCAPE . #o204)
  24.         (:FUNCTION . #o204)
  25.         (:MACRO . #o205) (:BACK-NEXT . #o205) (:BACKNEXT . #o205)
  26.         (:HELP . #o206)
  27.         (:RUBOUT . #o207)
  28.         (:OVERSTRIKE . #o210) (:BACKSPACE . #o210) (:BS . #o210)
  29.         (:TAB . #o211)
  30.         (:LINE . #o212) (:LF . #o212) (:LINEFEED . #o212) (:LINE-FEED . #o212)
  31.         (:DELETE . #o213) (:VT . #o213)
  32.         ;; The keyboard says "CLEAR SCREEN", but it should type out as "PAGE".
  33.         (:PAGE . #o214) (:CLEAR-SCREEN . #o214) (:FORM . #o214) (:FF . #o214)
  34.         (:RETURN . #o215) (:NEWLINE . #o215) (:CR . #o215)
  35.         (:QUOTE . #o216)
  36.         (:HOLD-OUTPUT . #o217)
  37.         (:STOP-OUTPUT . #o220)
  38.         (:ABORT . #o221)
  39.         (:RESUME . #o222)
  40.         (:STATUS . #o223)
  41.         (:END . #o224)
  42.         (:ROMAN-I . #o225) (:ROMAN-II . #o226) (:ROMAN-III . #o227) (:ROMAN-IV . #o230)
  43.         (:ARROW-UP . #o231) (:ARROW-DOWN . #o232)
  44.         (:ARROW-LEFT . #o233) (:ARROW-RIGHT . #o234)
  45.         (:SYSTEM . #o235) (:SELECT . #o235)
  46.         (:NETWORK . #o236)
  47.         (:UNDO . #o237)
  48.         (:LEFT . #o240)
  49.         (:MIDDLE . #o241)
  50.         (:RIGHT . #o242)
  51.         (:KEYPAD-EQUAL . #o243)
  52.         (:KEYPAD-PLUS . #o244)
  53.         (:KEYPAD-SPACE . #o245)
  54.         (:KEYPAD-TAB . #o246)
  55.         (:KEYPAD-7 . #o247)
  56.         (:KEYPAD-8 . #o250)
  57.         (:KEYPAD-9 . #o251)
  58.         (:KEYPAD-MINUS . #o252)
  59.         (:KEYPAD-4 . #o253)
  60.         (:KEYPAD-5 . #o254)
  61.         (:KEYPAD-6 . #o255)
  62.         (:KEYPAD-COMMA . #o256)
  63.         (:KEYPAD-1 . #o257)
  64.         (:KEYPAD-2 . #o260)
  65.         (:KEYPAD-3 . #o261)
  66.         (:KEYPAD-ENTER . #o262)
  67.         (:KEYPAD-0 . #o263)
  68.         (:KEYPAD-PERIOD . #o264)
  69.         (:ARROW-MIDDLE . #o265) 
  70.         (:F1 . #o266)
  71.         (:F2 . #o267)
  72.         (:F3 . #o270)
  73.         (:F4 . #o271)
  74.         
  75.         (:CENTER-DOT . 0) (:CENTRE-DOT . 0)    ;Amerikans can't spell...
  76.         (:DOWN-ARROW . 1)
  77.         (:ALPHA . 2) (:BETA . 3) (:AND-SIGN . 4) (:NOT-SIGN . 5)
  78.         (:EPSILON . 6) (:PI . 7) (:LAMBDA . #o10) (:GAMMA . #o11) (:DELTA . #o12)
  79.         (:UP-ARROW . #o13) (:UPARROW . #o13)
  80.         (:PLUS-MINUS . #o14) (:CIRCLE-PLUS . #o15)
  81.         (:INFINITY . #o16) (:PARTIAL-DELTA . #o17)
  82.         (:LEFT-HORSESHOE . #o20) (:RIGHT-HORSESHOE . #o21) 
  83.         (:UP-HORSESHOE . #o22) (:DOWN-HORSESHOE . #o23)
  84.         (:UNIVERSAL-QUANTIFIER . #o24) (:FOR-ALL . #o24)
  85.         (:EXISTENTIAL-QUANTIFIER . #o25) (:THERE-EXISTS . #o25)
  86.         (:CIRCLE-X . #o26) (:CIRCLE-CROSS . #o26) (:TENSOR . #o26)
  87.         (:DOUBLE-ARROW . #o27) (:LEFT-ARROW . #o30) (:RIGHT-ARROW . #o31)
  88.         (:NOT-EQUAL . #o32)(:NOT-EQUALS . #o32)
  89.         (:ALTMODE . #o33) (:ALT . #o33) (:DIAMOND . #o33)
  90.         (:LESS-OR-EQUAL . #o34) (:GREATER-OR-EQUAL . #o35) (:EQUIVALENCE . #o36)
  91.         (:OR-SIGN . #o37) (:OR . #o37)
  92.         
  93.         (:SPACE . #o40) (:SP . #o40)
  94.         (:INTEGRAL . #o177)
  95.         (:COKE-BOTTLE . 259.) (:COKEBOTTLE . 259.)
  96.         )
  97.           (MAPCAR (LAMBDA (X) (CONS (CAR X)
  98.                     (DPB 1 %%XR-SPECIAL-CHARACTER-NAMES-MOUSE-BIT
  99.                          (CDR X))))
  100.               '((:MOUSE-L . 0) (:MOUSE-L-1 . 0) (:MOUSE-L-2 . #o10) (:MOUSE-L-3 . #o20)
  101.             (:MOUSE-M . 1) (:MOUSE-M-1 . 1) (:MOUSE-M-2 . #o11) (:MOUSE-M-3 . #o21)
  102.             (:MOUSE-R . 2) (:MOUSE-R-1 . 2) (:MOUSE-R-2 . #o12) (:MOUSE-R-3 . #o22)
  103.             (:MOUSE-1-1 . 0) (:MOUSE-1-2 . #o10)
  104.             (:MOUSE-2-1 . 1) (:MOUSE-2-2 . #o11)
  105.             (:MOUSE-3-1 . 2) (:MOUSE-3-2 . #o12)))))
  106. )
  107. #+LMI
  108. (EVAL-WHEN (LOAD COMPILE)
  109. (SETQ kbd-ti-bd-table-list
  110.     '(
  111.       ;;x00
  112.       (140000 140000 140000 140000 140000)    ;none
  113.       (#/HELP #/HELP #/HELP #/HELP #/HELP)    ;HELP
  114.       (140000 140000 140000 140000 140000)    ;none
  115.       (100003 100003 100003 100003 100003)    ;CAPS-LOCK
  116.       (140000 140000 140000 140000 140000)    ;BOLD-LOCK
  117.       (140000 140000 140000 140000 140000)    ;ITALIC-LOCK
  118.       (100011 100011 100011 100011 100011)    ;MODE-LOCK
  119.       (100007 100007 100007 100007 100007)    ;left HYPER
  120.       ;;x08
  121.       (#/SYSTEM #/SYSTEM #/SYSTEM #/SYSTEM #/SYSTEM)
  122.       (#/NETWORK #/NETWORK #/NETWORK #/NETWORK #/NETWORK)
  123.       (#/STATUS #/STATUS #/STATUS #/STATUS #/STATUS)
  124.       (#/TERMINAL #/TERMINAL #/TERMINAL #/TERMINAL #/TERMINAL)
  125.       (140000 140000 140000 140000 140000)    ;none
  126.       (#/PAGE #/PAGE #/PAGE #/PAGE #/PAGE)    ;CLEAR-SCREEN
  127.       (#/CLEAR-INPUT #/CLEAR-INPUT #/CLEAR-INPUT #/CLEAR-INPUT #/CLEAR-INPUT)
  128.       (#/UNDO #/UNDO #/UNDO #/UNDO #/UNDO)
  129.       ;;x10
  130.       (#/END #/END #/END #/END #/END)
  131.       (#/ROMAN-I #/ROMAN-I #/ROMAN-I #/ROMAN-I #/ROMAN-I)    ;LEFT
  132.       (#/ROMAN-II #/ROMAN-II #/ROMAN-II #/ROMAN-II #/ROMAN-II)    ;MIDDLE
  133.       (#/ROMAN-III #/ROMAN-III #/ROMAN-III #/ROMAN-III #/ROMAN-III)    ;RIGHT
  134.       (#/F1 #/F1 #/F1 #/F1 #/F1)
  135.       (#/F2 #/F2 #/F2 #/F2 #/F2)
  136.       (#/F3 #/F3 #/F3 #/F3 #/F3)
  137.       (#/F4 #/F4 #/F4 #/F4 #/F4)
  138.       ;;x18
  139.       (140000 140000 140000 140000 140000)    ;none
  140.       (140000 140000 140000 140000 140000)    ;none
  141.       (100006 100006 100006 100006 100006)    ;LEFT SUPER
  142.       (100005 100005 100005 100005 100005)    ;LEFT META
  143.       (100004 100004 100004 100004 100004)    ;LEFT CONTROL
  144.       (100044 100044 100044 100044 100044)    ;RIGHT CONTROL
  145.       (100045 100045 100045 100045 100045)    ;RIGHT META
  146.       (100046 100046 100046 100046 100046)    ;RIGHT SUPER
  147.       ;;x20
  148.       (100047 100047 100047 100047 100047)    ;RIGHT HYPER
  149.       (#/RESUME #/RESUME #/RESUME #/RESUME #/RESUME)
  150.       (140000 140000 140000 140000 140000)    ;none
  151.       (#/ALTMODE #/ALTMODE #/ALTMODE #/ALTMODE #/ALTMODE)    ;ESCAPE
  152.       (#/1 #/! #/! 140000 140000)
  153.       (#/2 #/@ #/@ 140000 140000)
  154.       (#/3 #/# #/# 140000 140000)
  155.       (#/4 #/$ #/$ 140000 140000)
  156.       ;;x28
  157.       (#/5 #/% #/% 140000 140000)
  158.       (#/6 #/^ #/^ 140000 140000)
  159.       (#/7 #/& #/& 140000 140000)
  160.       (#/8 #/* #/* 140000 140000)
  161.       (#/9 #/( #/( 140000 140000)
  162.       (#/0 #/) #/) 140000 140000)
  163.       (#/- #/_ #/_ 140000 140000)
  164.       (#/= #/+ #/+ 140000 140000)
  165.       ;;x30
  166.       (#/` #/{ #/{ 140000 140000)
  167.       (#/~ #/} #/} 140000 140000)
  168.       (#/= #/= #/= 140000 140000)    ;= on keypad
  169.       (#/+ #/+ #/+ 140000 140000)    ;+ on keypad
  170.       (#/SPACE #/SPACE #/SPACE #/SPACE #/SPACE)    ;space on keypad
  171.       (#/TAB #/TAB #/TAB #/TAB #/TAB)    ;tab on keypad
  172.       (#/BREAK #/BREAK #/BREAK #/BREAK #/BREAK)
  173.       (140000 140000 140000 140000 140000)    ;none
  174.       ;;x38
  175.       (#/TAB #/TAB #/TAB #/TAB #/TAB)
  176.       (#/q #/Q #/ 140000 140000)
  177.       (#/w #/W #/ 140000 140000)
  178.       (#/e #/E #/ #/ 140000)
  179.       (#/r #/R #/ 140000 140000)
  180.       (#/t #/T #/ 140000 140000)
  181.       (#/y #/Y #/ 140000 140000)
  182.       (#/u #/U #/ 140000 140000)
  183.       ;;x40
  184.       (#/i #/I #/ 140000 140000)
  185.       (#/o #/O #/ 140000 140000)
  186.       (#/p #/P #/ #/ 140000)
  187.       (#/( #/[ #/[ 140000 140000)
  188.       (#/) #/] #/] 140000 140000)
  189.       (140000 140000 140000 140000 140000)    ;none
  190.       (#/\ #/| #/| 140000 140000)
  191.       (#/ARROW-UP #/ARROW-UP #/ARROW-UP 140000 140000)    ;arrow up
  192.       ;;x48
  193.       (#/7 #/7 #/7 140000 140000)    ;7 on keypad
  194.       (#/8 #/8 #/8 140000 140000)    ;8 on keypad
  195.       (#/9 #/9 #/9 140000 140000)    ;9 on keypad
  196.       (#/- #/- #/- 140000 140000)    ;- on keypad
  197.       (#/ABORT #/ABORT #/ABORT #/ABORT #/ABORT)
  198.       (140000 140000 140000 140000 140000)    ;none
  199.       (140000 140000 140000 140000 140000)    ;none
  200.       (#/RUBOUT #/RUBOUT #/RUBOUT #/RUBOUT #/RUBOUT)
  201.       ;;x50
  202.       (#/a #/A 140000 #/ 140000)
  203.       (#/s #/S 140000 140000 140000)
  204.       (#/d #/D 140000 #/
  205.  140000)
  206.       (#/f #/F 140000 140000 140000)
  207.       (#/g #/G #/  #/     140000)
  208.       (#/h #/H #/ 140000 140000)
  209.       (#/j #/J #/ 140000 140000)
  210.       (#/k #/K #/ 140000 140000)
  211.       ;;x58
  212.       (#/l #/L #/ #/ 140000)
  213.       (#/; #/: #/: 140000 140000)
  214.       (#/' #/" #/" #/ 140000)
  215.       (#/RETURN #/RETURN #/RETURN #/RETURN #/RETURN)
  216.       (#/LINE #/LINE #/LINE #/LINE #/LINE)
  217.       (#/ARROW-left #/ARROW-left #/ARROW-left 140000 140000)    ;arrow left
  218.       (#/ARROW-MIDDLE #/ARROW-MIDDLE #/ARROW-MIDDLE #/ARROW-MIDDLE #/ARROW-MIDDLE)
  219.       (#/ARROW-right #/ARROW-right #/ARROW-right 140000 140000)    ;arrow right
  220.       ;;x60
  221.       (#/4 #/4 #/4 140000 140000)    ;4 on keypad
  222.       (#/5 #/5 #/5 140000 140000)    ;5 on keypad
  223.       (#/6 #/6 #/6 140000 140000)    ;6 on keypad
  224.       (#/, #/, #/, 140000 140000)    ;, on keypad
  225.       (140000 140000 140000 140000 140000)    ;none
  226.       (140000 140000 140000 140000 140000)    ;none
  227.       (100001 100001 100001 100001 100001)    ;left SYMBOL
  228.       (100000 100000 100000 100000 100000)    ;left SHIFT
  229.       ;;x68
  230.       (#/z #/Z 140000 140000 140000)
  231.       (#/x #/X 140000 140000 140000)
  232.       (#/c #/C #/ 140000 140000)
  233.       (#/v #/V 140000 140000 140000)
  234.       (#/b #/B #/ #/ 140000)
  235.       (#/n #/N #/ 140000 140000)
  236.       (#/m #/M #/ 140000 140000)
  237.       (#/, #/< #/< 140000 140000)
  238.       ;;x70
  239.       (#/. #/> #/> 140000 140000)
  240.       (#// #/? #/? #/ 140000)
  241.       (100040 100040 100040 100040 100040)    ;right SHIFT
  242.       (140000 140000 140000 140000 140000)    ;none
  243.       (100041 100041 100041 100041 100041)    ;right SYMBOL
  244.       (#/ARROW-down #/ARROW-down #/ARROW-down 140000 140000)    ;arrow down
  245.       (#/1 #/1 #/1 140000 140000)    ;1 on keypad
  246.       (#/2 #/2 #/2 140000 140000)    ;2 on keypad
  247.       ;;x78
  248.       (#/3 #/3 #/3 140000 140000)    ;3 on keypad
  249.       (140000 140000 140000 140000 140000)    ;none
  250.       (140000 140000 140000 140000 140000)    ;none
  251.       (#/SPACE #/SPACE #/SPACE #/SPACE #/SPACE)
  252.       (140000 140000 140000 140000 140000)    ;none
  253.       (#/0 #/0 #/0 140000 140000)    ;0 on keypad
  254.       (#/. #/. #/. 140000 140000)    ;. on keypad
  255.       (#/return #/return #/return 140000 140000)    ;enter on keypad
  256.       )
  257.   )
  258. )
  259.  
  260. #+LMI
  261. (EVAL-WHEN (LOAD)
  262.   (TI-KEYBOARD)
  263. )
  264.